home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 7
/
FM Towns Free Software Collection 7.iso
/
data
/
nyan_e2
/
nyane2_t.plp
< prev
next >
Wrap
Text File
|
1993-11-30
|
5KB
|
163 lines
/********** 会議室タイトル一覧を作成する v1.04a用 **********/
var f2[1000];
var rtn2[500];
rtn2:=rtn;
%oneHP{[name]
%name2 @getchar(name|{ },1,8);
case(@filechk(logd|{\HP\}|fname|{.TLT}),
{Yes},{madd(1,{#})},{No},{madd(1,{ })});
madd(1,name2|{:HPの最新オープニング\n});
case(@filechk(logd|{\HP\}|fname|{.LOG}),
{Yes},{madd(1,{#})},{No},{madd(1,{ })});
madd(1,name2|{:HPの内容 \n});
case(@filechk(logd|{\HP\}|fname|{.USR}),
{Yes},{madd(1,{#}|name2|{:HPの最近の参照者 \n}) });
};
%onePatio{[name]
%name2 @getchar(name|{ },1,8);
case(@filechk(logd|{\PATIO\}|fname|{.TLT}),
{Yes},{madd(1,{#})},{No},{madd(1,{ })});
madd(1,name2|{:Patio のオープニング\n});
case(@filechk(logd|{\PATIO\}|fname|{.LOG}),
{Yes},{madd(1,{#})},{No},{madd(1,{ })});
madd(1,name2|{:Patio });
case(@fopen(logd|{\PATIO\}|fname|{.TLT}),
{Yes},{ loop({
%line @fread(12,{(});
case(line<>{} && @getchar(line,17,1)={)} &&
@getchar(line,23,1)={/},
{Yes},{
madd(1,@getchar(line,6,5)|{(}|@getchar(line,14,3)|{)}|
@getchar(line,21,5)|{:}|@getchar(line,29,80));
im({No});
},{No},{
im({Yes});
});
});
fclose;
},{No},{madd(1,name2|{\n});
});
case(@filechk(logd|{\PATIO\}|fname|{.USR}),
{Yes},{madd(1,{#}|name2|{:Patio の最近の参照者 \n})});
};
%oneBoad{
%line @fread(12,{(});
%CcsNo @case(@getchar(line,1,1),
{ },{im({0}|@getchar(line,2,2))},
,{getchar(line,1,2)
});
case(line<>{} && @getchar(line,17,1)={)} && @getchar(line,1,2)+0>0,
{Yes},{
case(@filechk(logd|{\}|name|{\MES}|CcsNo|{.LOG})
&& Treq={VIEW},
{Yes},{madd(1,{#})},{No},{madd(1,{ })});
madd(1,name2|{:}|@getchar(line,1,2)|{会議室 }|
@getchar(line,6,5)|{(}|@getchar(line,14,3)|{)}|
@getchar(line,21,5)|{:}|@getchar(line,29,80));
});
im(line<>{});
};
%oneForum{[name]
%name2 @getchar(name|{ },1,8);
case(Treq={VIEW},
{Yes}, {
case(@filechk(logd|{\}|name|{\TITLE.LOG}),
{Yes}, {madd(1,{#});
},{No},{madd(1,{ });
});
madd(1,name2|{:オープニングメッセージ\n});
case(@filechk(logd|{\}|name|{\BUL.LOG}),
{Yes}, {madd(1,{#});
},{No},{madd(1,{ });
});
madd(1,name2|{:掲示板の内容 \n});
case(@filechk(logd|{\}|name|{\MESTITLE.LOG}),
{Yes}, {madd(1,{#});
},{No},{madd(1,{ });
});
madd(1,name2|{:会議室オープニングメッセージ\n});
});
fopen(logd|{\}|name|{\mestitle}|{.log});
loop({oneBoad});
fclose;
};
mclear(1);
case(Treq={VIEW},
{Yes}, {
madd(1,{ ★ 読みたい物を左ダブルクリック}|
{(又はカーソル移動+PF3)で選択して下さい ★ \n});
case(@filechk(logd|{\MAIL\PROFILE.LOG}),{Yes},{
madd(1,{# :受信したプロフィールの内容\n})});
case(@filechk(logd|{\TITLE.LOG}),{Yes},{
madd(1,{# :最新のNifty オープニングメッセージ \n})});
case(@filechk(logd|{\BILL.LOG}),{Yes},{
madd(1,{# :最新のNifty 課金情報(3か月分)\n})});
case(@filechk(logd|{\ACCOUNT.TXT}),{Yes},{
madd(1,{# :アクセス履歴情報\n})});
case(@filechk(logd|{\MAIL\MAIL.LOG}),
{Yes},{ madd(1,{# :受信したメールの内容})
},{No},{madd(1,{ :受信したメールの内容})
});
case(@filechk(logd|{\TITLE.LOG}),{Yes},{
%title @read(logd|{\TITLE.LOG});
case(@head(title,{(未読分})<>title,{Yes},{
madd(1,@head(@tail(title,{通届いています}),{--\n}));
});
madd(1,{\n});
});
case(hp<>{},{Yes},{
f2:=hp;
loop({
%fname @tail(@head(f2,{,}),{/});
f2:=@body(f2,{,});
case(@filechk(logd|{\HP\}|fname|{.TLT}),{Yes},{
oneHP(fname)});
im(f2<>{})
});
});
case(patio<>{},{Yes},{
f2:=patio;
loop({
%fname @tail(@head(f2,{,}),{/});
f2:=@body(f2,{,});
case(@filechk(logd|{\PATIO\}|fname|{.TLT}),{Yes},{
onePatio(fname)});
im(f2<>{})
});
});
case(forum<>{},{Yes},{
f2:=forum;
loop({
%fname @head(@head(f2,{/}),{(});
f2:=@body(f2,{/});
%mae @head(rtn2,fname);
%ushiro @body(rtn2,fname);
case(@getchar(ushiro,1,1)={(},{Yes},{
rtn2:=mae|@body(ushiro,{/});
});
case(@filechk(logd|{\}|fname|{\title}|{.log}),{Yes},{
oneForum(fname)});
im(f2<>{})
});
});
case(rtn2<>{},{Yes},{
f2:=rtn2;
loop({
%fname @head(@head(f2,{/}),{(});
f2:=@body(f2,{/});
case(@filechk(logd|{\}|fname|{\title}|{.log}),{Yes},{
oneForum(fname)});
im(f2<>{})
});
});
},{No},{
madd(1,{ ★ 対象会議室を左ダブルクリック}|
{(又はカーソル移動+PF3)で選択して下さい ★ \n});
oneForum(Treq);
});